home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group99a.txt / 000227_icon-group-sender _Fri Nov 5 11:00:16 1999.msg < prev    next >
Internet Message Format  |  2000-09-20  |  3KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id KAA22015
  4.     for icon-group-addresses; Fri, 5 Nov 1999 10:58:32 -0700 (MST)
  5. Message-Id: <199911051758.KAA22015@baskerville.CS.Arizona.EDU>
  6. X-Authentication-Warning: agate.berkeley.edu: news set sender to <news> using -f
  7. From: Steve Wampler <swampler@noao.edu>
  8. X-Newsgroups: comp.lang.icon
  9. Subject: Re: How do I create an array of records??
  10. Date: Fri, 05 Nov 1999 08:17:34 -0700
  11. X-Trace: noao.edu 941815056 33041 140.252.38.6 (5 Nov 1999 15:17:36 GMT)
  12. X-Complaints-To: abuse@noao.edu
  13. X-Accept-Language: en
  14. To: icon-group@optima.CS.Arizona.EDU
  15. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  16. Status: RO
  17.  
  18. Andrew McGhie wrote:
  19. > 
  20. > I've just started programming with Icon and was wondering how to create
  21. > an array of records, for instance a database of people.
  22. > I've declared a record as follows:
  23. >    record Person(surname, forename, age, height)
  24. > but what do I do after this?  Or is there a better was to do it?
  25.  
  26. Hmmm, you have lots of ways to go at this point.  For example,
  27. if you really just want an array of records, use a list:
  28.  
  29.     db := list()        # create the 'array' (db declared global)
  30.  
  31.     procedure addPerson(surname, forename, age, height)
  32.         put(db, Person(surname, forename, age, height))
  33.     end
  34.  
  35. However, it's more likely you'll want to have some way to quickly
  36. look up entries in the database, so you might prefer to have
  37. several tables for quickly locating items using different keys:
  38.  
  39.     dbNames  := table()
  40.     dbAge    := table()
  41.     dbHeight := table()
  42.  
  43. (Note for the more Icon literate - this could be written as:
  44.  
  45.     every (dbNames | dbAge | dbHeight) := table()
  46.  
  47. but not as:
  48.  
  49.     dbNames := dbAge := dbHeight := table()
  50.  
  51. do you see why?)
  52.  
  53.     procedure addPerson(surname, forename, age, height)
  54.         person := Person(surname, forename, age, height)
  55.         /(dbNames[surname]) := []     # Use lists to allow
  56.         /(dbAge[age]) := []           #    for collisions
  57.         /(dbHeight[height]) := []
  58.         put(dbNames[surname], person)
  59.         put(dbAge[age], person)
  60.         put(dbHeight[height], person)
  61.     end
  62.  
  63. Of course, if you're writing a "real" application, you would want
  64. something considerably more sophisticated and with some sanity
  65. checks along the way - and probably want to separate the
  66. database 'operations' [store, search, retrieve, etc] from the
  67. actual items being stored, as in:
  68.  
  69.     procedure addPerson(surname, forename, age, height)
  70.         person := Person(surname, forename, age, height)
  71.         dbStore(person)
  72.     end
  73.  
  74.   
  75.  
  76. --
  77. Steve Wampler-  SOLIS Project, National Solar Observatory
  78. swampler@noao.edu
  79.